home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1996 December / macformat-044.iso / Demos / The Ghost Cave / BB / RBB / PUZ.Dxr / 00002.ls < prev    next >
Encoding:
Text File  |  1996-06-14  |  212 b   |  10 lines
  1. on mouseUp
  2.   global curChar, offs, totalpiece, piecelist
  3.   repeat with i = 1 to totalpiece
  4.     if canHelp(getAt(piecelist, i)) then
  5.       dohelp(getAt(piecelist, i))
  6.       exit repeat
  7.     end if
  8.   end repeat
  9. end
  10.